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Name: 40 Column Mode Support 
Description: 


This component provides support to the application programmer for 
using the 40-column mode feature. of the TS 2068. The services 
include position control, clear screen and scroll screen services 
and display of characters. For ease of use from BASIC, status is 
returned in the 8C register pair, usually zero for successful 
completion and designated non-zero values for other conditions. 
The interface from BASIC is by means of storing = the input 
parameters in designated RGM locations prior to invoking the 
service via the USR function. 
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Usage Section.) 
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This component is designed to permit use in normal video mode 
(Display File 1 only) or, ih conjunction with ASC004 Dual 
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Display File 2. The value of the System Va l ) is used 
to determine which display file is the target of the requested 
service. 
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ASC Number: 003 


Name: WRSTRG CWRSTRB from BASIC = String Identifier in PARAMS) 


Input: Character Code String 
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Displays the chseracters from the strings, beginning at the current 
cursor location and continuing sequentially until the count 
expires, or “Screen Full’ iS detected Csee WRCHR description and 
Usage Section on Automatic Scrolling). For the Screen Full 
condition, the remaining count is stored in the internal variable 
STRGCT for access by the usere 
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This pac ge of machine code routines includes the following 
internal variables: 


Name Size Description 
SCRCTL 2 Scroll Control 
LSB = Starting line number 
$8 = Number of lines to be scrolled 


BOTLN 1 Bottom Line - Line number (0-23) after which 
test for scroll will be made. 
SCRECT 1 Scroll Count- Number of times + 1 that 
automatic scroll will be done. 
When decremented to zero, data 
will not be displayed and a 
condition code will be returned 
to user. 
CHTBL 2 Character Table (Base Address-100H) 
GRTBL 2 Std.Graphics Character Table (€Base-100H) 
LINLEN 1 Line Length - (C40 or 42 when in 40-Col.Mode) 
CURPOS 2 Current Position CInternal Format) 
LSB = Column Position 
MSB = Line Position 
DFADOR 2 Current Display File Address 
MASKB ¢ 1 Working Byte -— (€P FLAG Shifted Right 1) 
Cbit 0 = OVER ) 
Cbit 2 = INVERSE) 
Cbit 4 = INK Complement of PAPER 
Cbit 6 = PAPER Complement of INK 
ATTBYT 1 Working Byte -— (€Copy of ATTR P) 
GTINOX 1 "“Get” Index - Used by GTCHAR 
STRGCT 2 String Count - Contains remaining byte count 
when BC=3 (€Screen Full) is 
returned from the Write String 


service WRSTRG CWRSTRB). 


Pag 

MARGIN 1 Marcin - Margin Adjust (0/1) 
DOFBIT 1 Display File Bit - Current Bit Position 
ATTMSK 1 Working Byte - (Copy of MASK P) 
Initial values set via INIT40 CINIT48) are as follows: 
Variable Name Value 

SCRCTL 1701H 

BOTLN 17H 

SCRLCT 1H 

CHTBL CInternal to Module) 

GRTSL CInternal to Module) 

LINLEN 28H 

CURPCS 1829H 

DFADOR 4000H 

GTINOX 80H 

STRGCT OH 

MARGIN 1H 

DFBIT TH 
Tne following are the variables used for passing parameters in 
BASIC and their values as initialized by -INIT4B: 
Variable Name Size Value 

DATAB 1 OH 

LINCOL 2 OH 

RCTL 2 1800H 

GETCTL 2 OH 
In addition, VIDMOUD, PARAMS and other system variables must be 
available to these routines. At minimums chunks 0-3 and chunk 7 
must be enabled in the Home Bank. 
Location: 
This package can be incorporated into a machine cod program 
within the memory range from chunk 4 through 7, taking into 
consideration the remapping of certain structures when the second 
display file is open (COual Screen Mode only). NOTES: Machine 
code above RAMTOP is not moved. 
Registers: 
Other than as documented for output values» no claims are made as 
to preservation of any re site contents except for the IY 
Register which must always contain the value 5C34AH for access to 
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the standard system variables. 


Automatic Scrolling: 


As initialized, test for scrolling will be made when the print 
positicn goes to the next line following the bottom line on 
screen C8OTLN=23=24th lined). Condition Code 3 (Screen Full) will 
be returned since SCRLCT will decrement to zero. If SCRLCT is 
set to some larger valuey then the parameters in SCRCTL will be 
used to ‘automatically scroll the designated number of lines 
beginning at the specified line number.’ As initialized, this 
will scroll the entire screen up. By performing a POKE or 
setting the variables BOTLN and SCRCTL to the desired values, 
automatic scrolling can be done using smaller sections of the 
screene When working from BASIC it is recommended that BOTLN be 
set to. Line 2a SCiShiv ene sorceress pe Set to 21 €15H) to avoid 
conflict with the Edit Line which uses the bottom two lines of 
the screen. Note that once SCRLCT expires, it will be set to l. 
If a different value is desired, it must be reinitialized by the 
user after receiving the “Screen Full’ condition. 


By setting the SCRCTL variable and invoking the SCROLL CSCRLB8) 
routine any portion of the screen may be scrolled at any time. 


Margin Control: 


In 40-Column Mode, there are actually 42 character positions per 
linee The variable MARGIN determines the offset of the beginning 
of the 40 column line from the left side of the screen and has 
valid offset values of 0 or 1. An offset value of 1 centers the 
40 column line on the screen; 0 begins at the extreme left side. 
The default value is 1. When MARGIN is set to 05 the variable 
LINLEN can be set to 42 to permit access to the 2 extra print 
positions. Whenever MARGIN and/or LINLEN are modified, a “Set 
Cursor’ operation should be done to insure the integrity of the 
print position. 


NOTE: Since the different MARGIN values result in different pixel 
positions for the columns, care must be taken in mixing 
line length and margin values on the same line. 


Attribute Control: 


Attribute and masking Cinverse/Over) control information will be 
taken from the system variables ATTR Py MASK P and P FLAG as 
defined below. These variables contain the “permanent” attribute 
controls set via the BASIC commands PAPER, INK, BRIGHT, FLASH, 
INVERSE» and OVER, or by directly writing to the specified 
locations. 
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WITH 
MODULE LOADED 
AT 57344CE000 
DECIMAL ADDRE 


E FROM BASIC 57344 
WRITE CHARACTER 57345 
WRITE STRING 57348 

OR PARAMETERS 

=COL. (0-39) Si( B51 

+1=LINE €0-23) = be. o-Ps 
SET CURSOR POSN. 51359 

REEN CONTROLS 

=STARTING LINE NO. 57356 

+1=LINE COUNT EO | 
CLEAR SCREEN 57358 
CALIGNMENT ONLY) 

NTROL FROM BASIC 57369 

S AS FOR LINCOL 
GET CHARACTER ye ie 
GET ATTRIBUTE 57374 
GET CURSOR POSN. STSTT 

57380 
INITIALIZE 40-COL. 57381 

ONTROL 

=STARTING LINE NO. 57384 

+1=LINE COUNT 57385 
SCROLL 57386 
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ADL - ASC 003 40-COL.MODE SUPPORT CRZ80/11 version 10.36.14 99-Jan-84 12:318:314 Page 5 
WRITE CHARACTER T040.SRC 


121 SUBTTL WRITE CHARACTER 
; 122 : 

00407 123 WRCHO: 3 HERE FROM BASIC ENTRY TO DISPLAY THE 
124 ; CHARACTER WHOSE CODE IS IN °DATAB’ 

0040° 3A 0000” 125 LO A, CDATAB) 
12 ; 

0043° 127 WRCHAR? $s ENTRY WITH CODE IN A 

0043° CD O4FD? 128 CALL. LDATTR 3 GET ATTRIBUTE. AND MASK CONTROLS 
129 : 
130 ; ENTRY TO USE ATTRIBUTE VALUES IN 
131 ; INTERNAL VARIABLES WITHOUT RELOADING 

0046° CD 04A1° 132 WRCHO1: CALL LODPOSN $ LOAD REGISTERS FOR CURRENT POSITION 
133 : BC=CURSOR POSITION FROM “CURPOS’ 
134 : HL=OISPLAY FILE ADDRESS FROM “DFADRS 
135 : A=CODE FOR CHAR. TO BE DISPLAYED 

0049" FE 20 136 cP 20H 3 TEST VALIO RANGE 

0048" DA 013F’ 137 Jp CyINVPAR  < 20H 

0O04E” FE AS 138 cP OASH : 

0050" D2 013F” 139 Jp NCyINVPAR ; > OA4H 

0053° C5 140 PUSH 8C ; SAVE CURSOR POSITION 

0054" FE 80 141 cP 80H $ TEST IF ASCII PRINTABLE C20H-7FH) 

0056° 38 15 142 JR CyWRCH12 MES 

0058" FE 90 143 cP 90H ; TEST IF STO.GRAPHICS(80-8FH) 

005A" 38 09 144 JR CyWRCH11 

005C” ED 48 5C78 145 LD BC, CUDG) ; USER -DEFINED GRAPHICS(90-A4H) 

0060° 05 146 DEC -. B 3 ADJUST ADORESS-100H 

0061° D6 70 147 Sua 70H ; ADJUST FOR INDEX INTO TABLE 

0063” 18 0C 148 JR WRCH13 

0065” ED 48 0031° 149 WRCH11 LOD BCyCGRTBL) ; ADDRESS OF GRAPHICS TABLE 

0069” D6 60 150 SUB 60H ; ADJUST FOR INDEX INTO TABLE 

0068” 18 04 151 JR WRCH13 

006D° ED 48 002F° 152 WRCH12 LOD BC, CCHTBL) 3 CHARACTER TABLE 

OO71° €&8 153 WRCH13 EX DE,HL ; DE=POSN.IN DISPLAY FILE 

0072° 26 00 154 LO H,0 ; 

0074° 6F 155 LO LyA ; CODE IS INDEX INTO TABLE 

0075" 29 156 ADD HL» HL 

0076" 25 157 ADD HLyHL 

OoF7" “329 158 ADD HLyHL 

0078” OS 159 ADD HL»BC $ HL=PIXEL PATTERN IN TABLE 

Oats": Ey 160 pop BC 

OO7TA’ £8 161 EX DEsHL $ DE=PIXEL PATTERN IN TABLE/HL=D 

0078"% 79 162 LD Ket ; TEST IF END OF LINE 

oo7C* 30 163 DEC A 

0070° 3A 0033” 164 LD Ay CLINLEN) 

0080°% 20 05 165 JR NZ »WRCH14 

0082° 3C 166 INC A ; START OF NEW LINE 

0083” 05 167 DEC 2 ; BUMP LINE NO. 

0084" 4F 168 LO C,A ; LINLEN+1=START OF LINE 

0085” 18 O01 169 JR WRCH15 

0087" 3C¢ 170 WRCH14 INC A 

0088" 89 , 172 WRCH1S CP C 3 TEST IF START OF LINE 

0089" 05 272 PUSH DE 
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O-COL.MODE SUPPORT CRZ80/11 version 10.36.14 9-Jan-84 12:18:14 Page 5-1 
1040.SRC 
0143° {73 CALL Z,TVFULQ ; TEST IF PAST “BOTTOM” LINE 
174 POP DE 
175 > HERE TO PUT CHARACTER IN DISPLAY FILE 
176 WRCH2 PUSH BC 3 CURSOR POSITION 
177 PUSH HL ; OF ADDRESS 
0038° 178 LO Ay CMASKB) ; GET OVER AND INVERSE CONTROLS 
FF 179 LO By-1 
180 RRA 
O1 181 JR C yWRCH3 ; IF XORING NEW INTO OLD 
182 INC 3 B=-1 IF XORING =0 IF NOT 
183 WRCH3 RRA 
184 RRA 
185 SBC Ay A 
186 LD CsA ; C=-1 FOR INVERSE =0 IF NOT 
oe 187 LD Aye $ SCAN COUNT 
188 WRCH5 EX AF ,AF*” > SAVE SCAN COUNT IN ALTERNATE 
189 PUSH BC ; SAVE MASK VALUES 
190 PUSH DE $ SAVE CHAR.TABLE ADRS 
21 0000 191 LO 1X50 3 SAVE PTR.TO STACK 
39 192 ADD IXySP ; 
193 LO 0,CHL)D ; READ SCAN LINE FROM OF 
194 PUSH HL 3 SAVE ADDRESS 
195 INC HL ; NEXT BYTE 
196 WRCH6 LD E, CHL) ; READ SCAN LINE FROM NEXT BYT 
197 EX DEsHL ; SCANS TO HL. LAST DF POS.IN D 
198 LO Aye boFESY (IF “OVER* IS ACTIVE 
199 AND A 
1A 200 JR NZ NOXOR $ YES-RETAIN OLD DATA 
003E° 201 LO A,COFBIT) ; NO- CLEAR CLO DATA AT CHAR.POSN. 
07 202 oS ; 
ae 203 NEG 
O3FF 204 LO BC,03FFH > MASK 
08 205 JR ZyNORR1 ; NO NEED TO ADJUSTCCHAR.STARTS AT BIT 
206 SCF 
18 207°. WEx¥a>- ae B > SHIFT MASK °A’ TIMES 
19 208 RR c $ €6 O°S START AT BIT 1 OF By, BIT 3 OF 
209 DEC OA OR BLT S OF. 8) 
F9 210 JR NZ sNEXT2 
211 \NORR1 LOD AsH ; SCAN LINE FROM DF 
212 AND B 
eis LO Hy A $ RETAIN ADJACENT CHAR.PIXELS 
214 LO Agl > CLEAR CURRENT CHAR.PIXELS 
215 AND C 
216 LD LyA > HL=OLD BIT ROW 
O03E° 217 NOXOR LOD A,CDFBIT) 3 GET STARTING BIT POSN. 
07 218 SUB. 7 
44 219 NEG 
220 PUSH HL ; SAVE SCANS 
6E 00 221 LO LyCIX) $ PTR. TO CHAR.SET 
66 01 222 0 Hy CIX+#1) 
223 LD By CHL) ; SCAN LINE FROM CHAR.SET TO BC 
00 224 LO C50 ; (PIXELS IN By BITS 7-2) 
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-Z80/11 version 10.36.14 


PUSH AF 
LD A,8 
AND OFCH 
LD ByA 
POP AF 
POP AL 
JR ZyNORR2 
AND A 
NEXT2 RR 8 
RR c 
DEC A 
JR NZeNEXT2 
NORR2 LO Ast 
XOR B 
LO HA 
LO Ast 
XOR C 
LD LyA 
LD A,yCIX+2) 
AND A 
JR ZsNOINVERT 
LO A, COFBIT) 
SUB 7 
NEG 
D BC,O0FCOOH 
JR Z,NORR3 
AND A 
NEXT3 RR S 
RR o 
DEC A 
JR NZsNEXT3 
a LD A gH 
XGR B 
LO HyA 
9) AyL 
XOR C 
LO LysA 
NOINVERT EX DE ,HL 
LO CHLIGE 
POP HL 
LO CHL) 5D 
POP DE 
POP BC 
EX AF, AF” 
INC H 
INC DE 
DEC A 
JP NZ sWRCHS 
DEC q 
CALL UPDATT 
PgpP HL 
POP B 
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S9-Jan-84 12218314 Page 5-2 
>; SAVE A AND FLAGS 

; PIXELS FROM CHAR.SET 
steal t 1a 6 PIXELS 

; 

; RESTORE A ANDO FLAGS 

s RESTORE SCANS 

$; NG SHIFT NEEDED 

; CLEAR CARRY 

7 onari: “A. TIMES 

; SCAN FROM OF 

> INSERT/COMBINE NEW CHAR. 


OR CH.eSET->HL 
IF INVERSE ACTIVE 


SHIFT MASK °A’ TIM 


m 
Ww 


INVERT CHARACTER 


DF ADRS. TO HL 
WRITE SCAN LIN 
PREVIOUS. BYTE 
WRITE SCAN LIN 
CHAR.SET 


mm | 


m 
-" 
oO 
Oo 
Bi) 


OVER/ZINVERSE INOICATORS 
RESTORE SCAN UNT 


N 

CO 

NEXT SCAN. IN OF 
HW 

C 


NEXT BYTE IN CHAR.FILE 
TEST IF MORE SCANS 
LAST CHAR.SCAN 

GPORTe ALTRISUTE BYTE 
STARTING ADRS. 

CURSOR POSITION 
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version 10.36.14 


SUBTTL WRITE STRING 


CALL GETSTRG 
RET Z 


CALL .LDATTR 


D Ay CHL) 
PUSH HL 
PUSH BC 
CALL WRCHO1 
LD A sC 
0 B 
JR NZ gWRSTX1 
POP BC 
POP HL 
INC HL 
DEC BC 
LO A,B 
OR € 
JR NZ 9WRSTLP 
RET 
LO Pog... 
CP 1 
JR Z,WRSTR3B 
POP HL 
LOD CSTRGCT)  sHL 
POP HL 
LD C,3 
LD B,0 
RET 
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99-Jan-84 12318314 Page 6 

>; HERE FROM BASIC ENTRY TO 

> WRITE CHARACTER STRING TOD SCREEN. 
; STRING IDENTIFIER CCH.CQDE) IN 
¢ SYSTEM VARIABLE PARAMS AT SCC3H 
s GET STRING VAR.ADRS. TO HL 

> NO STRING FOUND GR NULL STRING 
>; CBC CONTAINS STATUS) 

> ENTRY FROM MACHINE CODE WITH 

s ADDRESS OF CHAR.CODE “STRING ’ 

; IN HL AND LENGTH IN 8C 


GET ATTRIBUTE AND MASK CONTROLS 
GET Code 

SAVE ADRS. AND 

COUNT 

WRITE °A’ 

TEST IF GOOD 

EXIT IF INVALID CODE OR 
IF SCREEN FULL 

COUNT 

ADDRESS 

NEXT CHAR. 

ADJUST COUNT 

TEST IF DONE 


WRITE NEXT CHAR. 
RETURN BC=0 


CONTINUE 

REMAINING COUNT TO HL 

STORE REMAINING: COUNT 
ADDRESS TO HL 

RETURN 8C=3 FOR SCREEN FULL 
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CRZ80/11 version 10.36.14 


SUBTTL SCROLL 


LD BC, CSCRCTL) 


LO A,B 

AND A 

Jp ZyINVPAR 
ADD AsC 

CP ee 

JP CyINVPAR 
cP 25 


JP NC sINVPAR 


CALL... SCREO 


JP GOODRET 
PUSH BC 

LO A,sSCRSZ 
SUB C 

LD BA 

LO Ay¢ 

INC A 

LO CyA 
CALL LNBU 
POP BC 

PUSH HL 

PUSH BC 

LO Agl 

AND A 

JR ZsSTBLK 
RLCA 

RLCA 

RLCA 

LO CA 

LD Ay8 

SUB C 

Gr B 

JR C,»GRBLK 
Lo 4,8 

LO B,0 
PUSH. BC 

LO BA 

LO C8 

LD AyB 
PUSH BC 

RRCA 

RRCA 


ce we 8 oe 
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9-Jan—-84 12318:°14 Page & 


HERE WITH CONTROLS IN BC 
B=NO. OF LINES 
C=STARTING LINE NQ. 

Test VALIDITY 


ERROR IF B+C>24 
DO SCROLL 
RETURN, BC=0 


SAVE STARTING ADRS. 
SAVE ORIG.BC FOR EXIT 
TEST IF AT START OF BLOCK 


T AGAINST TOTAL LINES 
A REATER THAN THIS BLOCK 


SAVE SCAN COUNT 


ADL - ASC 003 40-COL.MODE 

SCROLL T040.SRC 
OTES < OF 
G1E6" “GF 
GIET" 06 00 
O01£9". E68 
OLGA. 22. FREO 
6PED** “-19 
QOLEE* EB 
QLTEF* ES 
O1F0"” ~ED 80 
O1F2* El 
OLF3)" 24 $ 
QO1F4°: C1 
GOLF'S.” 00 
O1F6” 20 E9 
GLPS* > CE 
OLF9” 738 
OLFA” AT 
O1FB’ 28 04 
O1FD’ ze. GO 
O1FF’ +866 
C208). Gk 
O202*) Di 
0203." GS 
0204° 68 
C2uoy 20°00 
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0200’ 40 
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RRCA 
LD CyA 
LD B,0 
LOOP] EX DE HL 
LO HL »-20H 
ADD HL,DE 
EX DE ,HL 
PUSH HL 
LOIR 
POE... “HE 
INC #H 
POP BC 
GEG? 2G 
JR NZ,LOOPO 
POP BC 
LO Ay5S 
AND A 
JR ta SGRt XT: 
LO L,0 
JR TESTAD 
SCRL XY SReP oa 
POP ODE 
PUSH BC 
LO L»5B 
LD HO 
ADD HLy,HL 
ADD. HLysHL 
ADD HLsHL 
ADD- HLyHL 
ADD HL 5HL 
LD Bost 
LD Col 
LD HD 
LO ligt 
CALL CALCATT 
EX DE,HL 
td HL »-20H 
ADD HL,DE 
EX DE sHL 
LDIR 
POP ~BC 
LO A Cl 
ADD AsB 
DEL A 
LO CoA 
LO Bsyl 
JR CLRSCO 
, 
GRBLK LOD CyA 
LD Ay8 
Sus. <& 
LO BoA 
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BC=32%*# OF LINES 


GET ADRS. OF PREV. LINE 


1O-DE 

SAVE. DF ADRS. 

DO MOVE 

GET ADRS. 

NEXT SCAN LINE 

SCAN COUNT 

MORE SCANS 

RESIDUAL LINE COUNT 
DONE 

START OF NEXT BLOCK 
DO REMAINING LINECS) 
ORIG.BC 


STARTING A 
SAVE ORIG 
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« OF LINES= 


COUNT TO BC 

ADRS. TO HL 

ATTRIBUTE ADRS. TO HL 
ADRS. OF PREV.ATTR-BYTE 


PREV.BYTE DE 

SCROLL ATTRIBUTES 
ORIG. BC 

STARTING LINE 

ADO’ NO. OF LINES MOVED 
LAST LINE SCROLLED 


CLEAR.1 LINE 

CLEAR VACATED LINE AND RETURN 
ADJUST TOTAL LINE COUNT BY NO. 
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; 
CLRSCN: 
CLRSCO 


version 10.36.14 


SUBTTL CLEAR SCREEN 


LD BC,CCLRCTL) 


we 


2) Ay8 
AND A 
JP ZsINVPAR 
ADD. AyC 
CP 1 
JP CyINVPAR 
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9-Jan-84 12218214 Pace 9 

+ HERE FROM BASIC ENTRY TO CLEAR 
s GET CONTROL INFO. 

> ENTRY WITH BC=LINE COUNT AND 

+ STARTING LINE NOe- FOR CLEAR 

SF EST VALIOITY 

> ERROR IF COUNT=0 


ee «2 «se oe we we 


ee 28 ee we 


oe wes 


-e 


ERROR IF B+C>24 
DO SERVICE 
RETURN B8C=0 


LIBUTE CTL 
C 


TO INTERNAL FORMAT 


COMPARE TO TOTAL LINE COUNT 


SCAN COUNT 


SAVE LINE CNT./SSCAN CNT. 


& 
& 
= ADL - ASC 003 40-COL.MODE SUPPORT CRZ80/11 version 10.36.14 9-Jan-84 12:18:14 Page 9-1 
CLEAR SCREEN 1040.SRC 
- A295": OF 559 RRCA 
0296°  4F 560 LO CyA ; BC=32%NO0. OF LINES 
@ 0297° 066 00 561 LO B,0 ; €s0 IF 256 FOR 8 LINES) 
0299” OD 562 DEC C 3; ADJUST 
G29A°. > E5 563 CLRSCS PUSH HL 
& 0298 54 564 LD DsH 
G29C" SO 565 LO Esl 
0290° 36 00 566 D CHL) 00 ; CLEAR OF 
& O29F° 13 567 INC DE 
02A0° ED 80 568 LOIR 
Gane”. EE 569 PoP HL 
ae 02A3° 24 570 INC H ; NEXT SCAN ROW 
02A4° Cl $71 Pop BC ; POP LINE/SCAN COUNT 
O2A5” OD 572 DEC C ; DECR. SCAN COUNT 
@ 02A6° 20 E7 573 JR NZyCLRSC4 3; NEXT SCAN 
O208° ES 574 PUSH HL ; SAVE NEXT OF ADRS. 
Q2A9° 25 575 DEC H ; LAST SCAN OF CHAR. 
ia O2AA’ CO 04ED’ 576 CALL CALCATT ; GET ADRS. IN ATTRIBUTE FILE 
O2A0" 78 577 LD A,B ; NO. OF LINES THIS BLOCK 
O2ZAE° E6 07 578 AND 7 
#& 0260° OF 579 RRCA 
0261" OF 580 RRCA 
0282° OF 581 RRCA 
& 0283" ~4F 582 LO CyA ; BC=32%NQ. OF LINES 
0284° 06 900 583 LO 8,0 
0286" OD 584 DEC C ; ADJUST 
£3 0267" 54 585 LO OsH 
0288" 5D 586 LO Esl 
0289° 3A 0039° 587 LO. A, CATTBYT) 3; ATTRIBUTE VALUE 
Po ozec* 77 588 LO CHL SA ; UPDATE ATTRIBUTE FILE 
0280° 13 589 INC DE ; 
QO28E° ED BO 590 LDIR ; 
® OfCO” -. &1 591 pap HL 3; DF ADRS.CLAST SCAN+100H) 
Ozer" C2 592 pap BC 3; TOTAL LINE COUNT 
G2uz" 78 593 LO, Aye 
Da 0203” .. AT 594 AND A 
0204" 28 05 595 JR ZyCLRSXT 
o2C6* .2€ 00 596 LD L50 ; HL=START OF NEXT BLOCK 
ca 02C8 C3°:0270 ° 597 JP CLRSC1 ; B=REMAINING LINE COUNT 
Q2¢e". Ct 598 CLRSXT POP BC . ; CURSOR POSITION 
Occc” “C3: 6452" 599 JP UPDPOSN ; RETURN VIA UPDATE AND STORE POSITION 
& O2CF’ 4F 600 CLRSC?7. LD CyA ; SAVE NO. LINES THIS BLOCK 
0200° 78 601 LO A,B 
Q201° 91 602 SUB C 3 ADJUST TOTAL LINE COUNT 
pe 0202" 47 603 LO ByA 
0203°° 5 604 PUSH. BC ; REMAINING LINE COUNT 
0204" 79 605 LD A,C ; LINES THIS BLOCK 
& 0205” 18 BS 606 JR CLRSC3 ; 
607 ; 
* 
@ 
@ 
& 


_ a a a on ee et ee ee ee ee ee CC 


ADL -- ASC 003 40-COL.MODE SUPPORT CRZ80/11 version 10.36.14 99-Jan-84 12:18:14 Page 10 
"GET’ ROUTINES I1040.SRC 
609 SUBTTL “GET’ ROUTINES 
610 ; 
611 ; 
0207’ 612 GTCHBO: 3 HERE FROM BASIC ENTRY TO GET CHARACTER 
613 ; CRETURNS CODE FOR CHARACTER AT 
614 ; POSITION SPECIFIED IN GETCTL) 
0207° ED 48 0019” 615 LO BCyCGETCTL)D ; GET CONTROL INFQ. 
$16 ; 
0208” 617 GTCHAR: 3 ENTRY WITH POSITION IN BC 
0208" CD 04346’ 618 CALL TSTPAR ; TEST PARAMETERS 
O2DE” 3A 003E7 619 LD A,yCOFBIT) ; SAVE CURRENT BIT POSITION 
O2E1° FS5 620 PUSH AF 
O2E2° CD 0447” 621 CALL CONVFM ; CONVERT TO INTERNAL FORMAT 
O2E5° “CD 0457” 522 CALL “'CABGPOS ; GET DF ADDRESS AND BIT POS. 
O2E8° ED 5B 002F’ 623 LD DE,CCHTBL) ; CHAR.TABLE 
O2EC’ 06 60 624 LO By96 ; NO. OF PRINTABLE CHARACTERS 
O2EE”  3E 80 625 LD A,80H ; SET ADJUSTMENT INDEX 
O2F0° 32 003A’ 626 GTCH1 LD CGTINDX),A 
O2F3" 14 627 INC D ; ADJUST TO START OF TABLE 
O2F4° C5 628 GTCH2 PUSH BC ; SAVE COUNT 
O2F5° €5 629 PUSH HL ; SAVE ADRS. IN DF 
O2F6" O05 $30 PUSH ODE ; SAVE ADRS. IN CHAR.TABLE 
O2F7° CO 0513” 631 CALL GTC2BC ; GET SCAN LINE FROM DF TO REG.B 
632 ; BITS 7-2 
O2FA’ 78 633 GTCHK2 LO AsB 
QO2FB” £6 FC 634 AND OFCH ¢ 6 BITS TO A 
O2°R*) 47 535 LO ByA 3; DF CHAR.SCAN ROW IN B 
O2FE’ €&8 636 EX DE HL ; CHAR.SET PTR. TO HL 
O2FF° TE 637 Ne) Ay CHL) ; PIXEL ROW FROM CHAR.SET 
0300" £6 FC 638 AND OFCH ; MASK TO’'6 BITS 
0302° As 639 XOR 5 $ TEST AGAINS DF IMAGE 
0303” 28 10 640 JR Z,GTCH3 $ MATCH 
0305" FS5 641 PUSH AF 
0306" 3A 003A’ 642 LO Ay CGTINDX) ; TEST IF LOOKING AT STDO.GRAPHICS 
0309° FE 90 643 cP 90H 
0308" 20 03 £44 JR NZ,GTCH23 
0300" Fi 645 PO AF 
O30E" 18 38 646 JR GTCH4 ; DO NOT TEST INVERSE IF STO.GR. 
0310° Fi $47 GTCH23 POP AF 
0311" FE FC 648 C OFCH ; TEST IF INVERSE 
0313” 20 36 649 JR NZsGTCH4 ; DOES NOT MATCH 
0315° 4F 650 GTCH3 LO CyA ; C=0 FOR MATCH -4 FOR INVERSE 
0316” 06 07 651 Ie) By7 ; SCAN COUNT 
0318° EB $52 GTCH31 &X DEsHL ; OF ADRS.TO HL 
0319" C5 653 PUSH 8C $ SAVE MATCH AND SCAN COUNT 
O31A° 24 654 INC 4 ; NEXT SCAN IN DF 
0318’ 13 655 INC DE ; NEXT ROW IN CHAR.SET 
GFi1C° €0° 0513" 656 CALL GTC2BC ; NEXT SCAN ROW TO BC 
O31F° 78 657 LO A,B 
0320° E6 FC 658 AND OFCH 
0322" 47 659 LD ByA 
0323” £8 660 EX DE»yHL 3 CHAR.SET PTR. TO HL 


e 
& 
ADL ~-. ASC 003 40-COL.MODE SUPPORT CRZ80/11 version 10.36.14 99-Jan-84 122183214 Page 10-1 
“GET” ROUTINES 1040.SRC 
e& 
0324" TE 661 LD Ay CHL) ; PIXEL ROW TO A 
0325° £6 FC 662 AND OFCH 
@ 0327" As 663 XOR 5 ; TEST MATCH 
0328° Cl 664 pop BC 3 GET PREV.MATCH AND SCAN COUNT 
0329° Ag 665 XOR C 
ae O3Z2A" 20 1F 666 JR NZ,GTCH4 3 NO MATCH-START AGAIN AT NEXT 
032C° 10 EA 667 DJNZ GTCH31 ;. 00 NEXT SCAN 
032E° 79 568 LD A,C 3; A=-4 IF. MATCH ON INVERSE 
| @ 032F° Cé 03 669 aod A,2 ; SET TO -1 IF MATCH ON INVERSE 
0331° Ci 670 PoP BC ; HERE IF MATCH CSP)=PTR.TO CHAR. 
0332° C1 671 pgp BC ; IN TABLE$CSP+2)=CHAR.IN DF$ 
® 0333’ Ci 672 Pop BC 3; CSP+4)=CHAR.COUNT 
0334° 4F 673 LOD CyA ; B=COUNT C=-1 IF MATCH ON INVERSE 
0335” 3A 003A" $74 0 Ay CGTINDX) ; CONVERT MATCH TO CHAR.CODE 
| @ 0338" 90 675 SUB 2 
0339° FE 20 676 cP 20H ; TEST IF MATCH ON SPACE 
0338° 20 05 677 JR NZ sGTCH32 ; NO 
©@ 0330" OC 678 INC C ; TEST IF MATCH ON INVERSE 
033E° 20 02 579 JR NZyGTCH32 
0340° 3E &8F 680 LO A,8FH ; LOAD CODE FOR GRAPHICS BLOCK 
@ 0342° GF 681 GTCH32 LO CyA ; RETURN IN REG. C OF BC PAIR 
0343" 06 00 682 LD B,0 ; AND IN REG. A 
0345° Fl 683 pop AF 
©@ 0346" 32 003E° 684 LD COFBIT),A ; RESTORE DFSIT 
0349° 73 685 LD 4,C ; CHAR.CODE TO A 
034A* C9 686 RET 
Pa $87 ; 
0348° €1 688 GTCHS Pop HL SPER. TO CHR. SET 
034C° 1 0008 689 LO DEs8 ; MOVE ON TO NEXT CHARACTER 
& O34F" 19 690 ; AOD HL»DE 
0350° 50 691 LO EsL 
0351" 54 692 LO DyH 
ae 0352° €1 693 Pap HL ; DF ADDRESS 
0353° C1 694 Pop BC ; CHAR. COUNT 
0354" 10 9E 695 DJNZ GTCH2 3 DECREMENT CHAR.COUNT AND LOOK AGAIN 
Bed 696 ; 
0356" 3A 003A’ 597 LD A,CGTINDX) ; TEST IF DONE 
0359” FE 80 698 cP 80H ; TEST IF STO.CHR.SET 
& 0358° 20 OA 699 JR NZyGTCHS ; TRY GRAPHICS 
0350" ED 58 0031° 700 LO DE,CGRTBL) ; GRAPHICS TABLE 
0361" 06 10 701 LD B,16 ; NO. OF ENTRIES 
& 0363° 3E& 90 702 LD A,90H 
0365” 18 89 703 JR GTCH1 
0367° FE 90 704 GTCHS cp 90H ; TEST IF STO.GRAPHICS 
& 0369" 20 0C 705 JR NZ,GTCH6 ; 
0368° €D 58 5C78 706 LD DE, CUDG) ; TRY USER-DEFINED GRAPHICS 
| O36F° 15 707 DEC D ; ADJUST ADDRESS-100H 
| a 0370" 06 15 708 LD 8,21 3 NO. OF ENTRIES 
| 0372° 36 AS 703 LD A,yOASH ; INDEX ADJUST ° 
| 0374" -C3 02F0’ 710 JP GTCH1 
©¢ 711 
712 ; 3 NO MATCH AT ALL 
oe 
- 
@ 
é 


ASC 003 40-COL.MODE SUPPORT CRZ80/11 version 10.36.14 9Q-Jan-84 12:18:14 Page l 
ROUTINES IOD40.SRC 

0377" ae hi3 GTCH6 POP AF s RESTORE ORIG. OFBIT 
0378” 32. 0035" 714 LD CDFBIT),A 
0378 48 5 LD C5B ; BC=0 
OS7G. DAF 716 XOR A . (AGO 
0370° C9 tah RET 

718 

719 7 GET ATTRIBUTE: BYTE 

720 ; 

pee | ; +; HERE FROM BASIC ENTRY 
O3STE” EO 48 0019” Tee GETABO: LD BC,CGETCTL) 

wes ; ; MERE WETH LENE/ZCOL. IN 8C 
0382’ 724 SETAT:T3 
0382’ CO 0436’ tes CALL TSTPAR s TEST PARAMETERS ‘ 
0385’ 3A O003E°’ 726 LD AsCDFBIT) $ SAVE CURRENT BIT POSITION 
03838” ae TST PUSH AF 
0389” CO 0447” 728 CALL CONV.FM > CONVERT TO INTERNAL FORMAT 
038C’ CO -0657.’ 729 CALL CALCPOS s CALCULATE DF POSITION 
OsScF” COD 04ED’ 730 CALL CALCATT ; CALCULATE ATTRIBUTE POSITION 
0392’ TE 731 LO Ay CHL) iwetthesUre BYTE TOA 
0393’ 4F 732 LO CyA s PASS BACK IN BC 
0394” G6 00 733 LO B,0 
0396’ Fl 734 POP AF s RESTORE COFBIT) 
0397” 32 003E% 735 LD CDFBIT),A $ 
039A" 79 736 LO AyC >; ATTRIBUTE ALSO IN A 
0396’ C9 Tat RET 

738 ; 

739 ; 

 eO ; +s GET CURSOR POSITION 

039C” 741 GETCBO: s HERE FROM BASIC ENTRY 
039C”’ 742 GETCURS 
039C° £D 4B 0034’ 743 LO BC, CCURPOS) +; GET INTERNAL POSITION 
03A0’ CD 0447” 744 CALL CONVFM + CONVERT TG USER FORMAT 
03A3’ SAh).0033” 745 LO Ay CLINLEN)D i TES oie Sen . OF CINE 
G3A6” 89 746 CP C + IF .=40 GR 42 
GSAT” 20 086 747 JR NZ,GETC1 > NO 
03497’ 0E.00 748 LD CI s NEXT POSNeSTART OF NEXT LINE 
03AB" 78 749 LD Ag® 
O3AC* a6 750 INC A s BUMP TO NEXT LINE 
03AD’ 47 151 D ByA 
OSAE” FE 18 132 CP 24 ;: head. tr OFF SCREEN 
0380” ao Ox Toa JR C,GETCI >; NO 
0362’ 06°17 754 LD 8,23 s POSNe IS AT BOTTOM LINE 
0384’ ED 43 0007’ 755 GETGZ LD CLINCOL), BC s STORE FOR BASIC PROGRAM 
0388’ Cg 756 RET +; VALUES. ALSO IN BC 

Vey s ; 
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INTERNAL SUB=RTNS. 1040.SRC 
803 SUBTTL INTERNAL SUB-RTNS. 
804 ; 
; 805 ; 
O40E”° 3A SEC3 806 GETSTRG LO As CPARAMS) +; GET STRING ID 
O441:": 6° 1° 807 ANDO 1FH > MASK OFF UPPER BITS 
0413” Fé 40 808 OR 40H $: STRING VARIABLE IDENTIFIER 
O475°" 57 809 LD D yA + SAVE IN D 
0416" 2A 5C4B 810 LO HL» CVARS)D > FIND STRING 
i Sh gee 3 811 GTISTR? te Ay CHL) ; 
O41A°” . E6 TF 812 AND O7FH ; TEST IF END OF VARS AREA 
041C 28 i3 813 JR Z»NOSTRG s NO FIND -— RETURN B8C#=2 
O41E° 84 814 cP D ; TEST IF MATCH 
OALF’: 28°08 815 JR ZoGTSTR2 ; FOUND STRING 
0421° D5 816 PUSH DE ; SAVE STRING ID 
0422" CO 1720 8257" CALL RECLEN s RETURNS ADRS. OF NEXT VAR. IN DE 
0425”° £8 818 EX DE HL ; ADRS. TO HL 
0426": O1 819 POP DE > RESTORE STRING ID 
0427" 18: FO 820 JR GTSTR1 +; LOOK AGAIN 
0429’ 23 821 GTSTR2 INC HL ; GET LENGTH 
042A” 4E 822 LO Cy CHL) 
0428" 23 823 TNC HE 
0420" 46 824 LD By CHL) 
0420" 23 825 INC ot $; FIRST TEXT CODE 
O42E” 78 826 LO A ss ; TEST IF NULL STRING 
062F" Bi 827 OR C 
0430° C9 828 RET s RETURN CZ IF NULL STRING/NZ IF NOT) 
829 ; 
0431°. -“:0E 02 830 NOSTRG LOD C52 
0433° 06 00 831 LO B,0 
0435" C9 832 RET >; €Z AND BC=2 FOR NO FIND) 
833 ; 
834 ; 
835 
836 ; 
837 ; 
838 ; TEST PARAMETER VALIDITY 
839 +s IF NOT VALID, DISCARDS RETURN 
840 >; AND EXITS VIA INVPAR 
0436° 3E& 17 841 TSTPAR LO Ay23 . TEST AINE’ >23 
0438” 88 R42 cP B 
0439” 30 04 843 JR NC,yTSTPR1 
043B°: Fi 844 PARERR POP AF 
043C". C3 013F° 845 JP INVPAR 
043F ’” 3A 0033° 846 TSTPRI D A, CLINLEN) 
0442’ 30 B47 DEC A 
0443” 8g 848 cP C >; TEST CQL. DSLINE LENGTH-1 
0444” 58 F5 849 JR CyPRARERR 
0446" CS 850 RET 
851 H 
852 s CONVERT LINE/COL. FROM USER TO 
853 s INTERNAL FORMAT AND VICE VERSA 
854 3; USER FORMAT: LINES 0-23 
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COL 
INTERNAL FORMAT? 

LINES 24-1 

COL. €43)41-2 

CCOL.1 END OF LINED 


ENTER HERE WITH S8C=LINE/COL.IN 
INTERNAL FORMAT 

CALCULATE POSITION 

STORE UPDATED POSITION AND RETURN 


ROUTINE TO CALCULATE POSITION IN OF 
UPDATES BIT POSITION IN VARIABLE DFBIT 
RETURNS DF ADDRESS IN HL. PRESERVES 
LINE/COL.POSITION IN BC 

GET DISPLAY FILE ADORS.FOR LINE 


GET COL. NO. 
SAVE COL. NO.CO-CLINLEN=-1)) 


3 *<€40-COL.POS> /4 = 32-COL.POS 


GET ADJUSTMENT VALUE 


DE CONTAINS OFFSET INTO LINE 
HL CONTAINS DF ADDRESS 


ee eoe#eneenee#re#se#e#ee#steeteseesee?e?eseeees*= ¢ @ 


@ 
oe 
= 
ADL - ASC 003 40-COL.MODE SUPPORT CRZ80/11 version 10.36.14 G-Jan-84 12:218:°14 Page 
e INTERNAL SUB-RTNS. I940.SRC 
047D° Cg 907 RET 3 BC=POS. HL=DF ADDRESS 
908 : 
& 909 ; 
O47E° 910 LNBU: ; GET DISPLAY FILE ADDRESS 
911 ; FOR START OF LINE IN 8B 
a O47E° 3E 18 912 LD AySCRSZ 
0480" 90 913 SUB 8 
0481° 57 914 LO DyA 
cc 0482° OF 915 RRCA 
0483" OF 916 RRCA 
0484" OF 917 RRCA 
® 0485° E6 EO 918 AND OEOH 
0487° 6F 919 LO LyA 
0488° 7A 920 LOD AyD 
Se 0489° £6 18 921 AND 18H 
0488 Fé 40 922 OR 40H 
0480° 67 923 LO HA 
a 048E° 3A 5CC2 924 LO A,yCVIOMOD) ; TEST IF USING DF1 
0491° CB 47 925 BIT O,A 
0493° Cé 926 RET 2 
@ 04947" SE 20 927 LD Ay20H ; USING DF2 
0496° 84 928 OR = 
0497° 67 929 LO Hy A 
& 0498" C9 930 RET 
931 
0499° 932 STPOSN? ; STORE CURSOR POSITION 
She 0499” ED 43 0034” 933 LD CCURPOS),8C 
049D° 22 0036’ 934 LD CDFADRS)sHL 
0400" CS 935 RET 
e 936 ; 
04A1° 937 LOPOSN: ; LOAD CURSOR POSITION 
0401" ED 48 0034” 938 LO B8C,CCURPOS) 
ay 04A5° 2A 0036” 939 LO Hl» CDFADRS) 
0448 C9 940 RET 
941 : 
& 942 ; 
0409" 943 UPDATT? ; UPDATE ATTRIBUTE BYTE FOR CHARACTER 
944 ; ; JUST PRINTED 
P 945 ; ; HL = ANY SCAN OF CHAR.IN OF 
946 ; ; 
947 ; ; IF CHARACTER SPANS. ATTRIBUTE BYTE 
& 948 ; $ BOUNDARY, BOTH ATTRIBUTE BYTES W 
949 ; ; BE ADJUSTED 
950 ; 
& 951 ; 
0409" CD 04ED’ 952 CALL CALCATT ; ADDRS. OF ATTRIBUTE BYTE TO 
O4AC° 3A 003E° 953 LD A,COFBIT) ; SAVE SIT POSITION 
& O4AF° FS5 954 PUSH AF ; 
0480" 3A 0039° 955 LD A, CATTBYT) ; CURRENT ATTRIBUTE BYTE VALUE 
0483° 5F 956 LO EyA ; Tact 
& 0484° 3A 003F’ 957 LO Ay CATTMSK) ; MASK TO O 
) 0487° 57 958 LD DyA 
@ 
od 
& / 
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0488” 3A 
04BB” 47 
0468C’ TE 
048D’ AB 
O4BE"° A2 
O4BF’ AB 
04C0° CB 
04C2” 28 
04C4" £6 
04C6" CB 
04C8”" 20 
04CA’ Fé 
OGG t® GB 
O4CE’ 28 
0400’ EG 
0402" CB 
0404’ 20 
0406” Fé 
0408’ 77 
0409” 34 
040C’ FE 
O4DE ’” 30 
04E0’ 23 
0461’ 3 
04E3° 32 
04E6” 18 
O68"). FL 
O46E9°: 32 
O4EC’” C93 
04ED” 7C 
OGEE’ OF 
O4EF”’ OF 
O4F0” OF 
04F1’ E6 
04F3” ré 
O4F5 ” C8 
O4FT" 28 
O4F9” FE 
O4F8 57 
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LD Ay CMASKB) 


A 


LO 9A 
UPDATO LOD 9 CHL) 

XOR 

AND 

XOR 

BIT 95 

JR 9 UPDAT1 

AND OFS8H 


NOONAN ZUWN On kMmMOM bP mw 


UPDAT2 ED 


x '< 
anf 
ov 


e 


INC. HL 
D AyT7 
D COFBIT)»A 


UPDATO 


UPDAT3 POP AF 
LD COFBIT),A 
RET 
; 
AUGRF Top AsH 
RRCA 
RRCA 
RRCA 
AND OQO3H 
oR 58H 
BIT 59H 
JR Z»>CALCAI 
OR 20H 
CALCAI LD HA 


ee we we 


eo «2 te we «0 8 68 os 68 8 8 oH oe 40 we 
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NEW ATTR.FOR 03 OLD FOR 1 
SET INK COMPLEMENT OF PAPER? 
SET INK TO BLACK 

IS PAPER 4-7 

YES - USE BLACK INK 

NO - USE WHITE INK 

SET PAPER COMPLEMENT OF INK? 


SET PAPER TO BLACK 

IS INK 4-7 

YES - USE BLACK PAPER 
NO - USE WHITE PAPER 
TG ATTRIBUTE FILE 
TEST BIT POSITION 


CHAR sN SINGLE BYTE, IF. STARTS 
ENO BS R.5 
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SUB-RTN~ TO CALCULATE ADRS. OF 
ATTRIBUTE BYTE FROM ADRS. OF 
ANY SCAN ROW IN OF 
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TEST: WHIC 
DF1 
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ABR Ss OF -ALTRIBUTE 


BUTE BYTE 


ee = | 


| 


ADL - ASC 003 40-COL.MODE 


INTERNAL SUB-RTNS. 


Q4FC". '¢ 


wo 


O4FD’ 


un 


O4FD’ 
O4FE’ 
0501” 
0504” 
OS0T7’ 
050A” 
0500’ 
OSCE” 
te A Bie 
OSiz2° 


Lo 


CLES FF Ooo 


OnWoOW WW Ww 
Wmowwmo wv 
.w. WwW © Ww 


WrehM TEM Ph LP 


0513° 
0514” 
0315)° 
0516” 
OSi7” 
051A” 
0510” 
OStE'r 
0520” 
OS22 
0524” 
0525” 
Os27 
0528” 


RPreFHoOhLhO eo 
ab NO 


Oo rf 


Tn 
wo 


OmMNMwWOONMIW & Nw & Mm 
WOrFOoOOOAwWOIO Fr mwWwW Oo Ww 


OS 9 (O88 
OS2a* 00 
O525B" "00 
Q52C”" 00 
0520*% ~60 
OS 8° 700 
GSer" > 0% 


ra 
Lo ] 
es 


bh 
@O~a a 


-ewnmw oOo 
. 


QoOooo © 


oO Oo 


POPS PO PO Pe eH 


ee 
oo 


oO 
Om lf Wh oO wo 


fh PR 


Ww 
m 
. 


He 
Q200 


mw UT 


Mr OW ON DW S Wh © 


fh bs bt ee he tt Pe 
Oo a 2 oO 2a .o oO © 
Oonwu Www uw 


oO 


CRZ80/11 version 10.36.14 


LDATTR: 


PUSH AF 

LD AyCATTR_PD 
LD CATTBYT)¢A 
LD As CMASK_P) 
D  CATTMSK),A 
LO A, CP_FLAG) 


RRCA 

LO CMASKB) 5A 

POP AF 

RET 
’ 
; 
GTC28C PUSH HL 

LD By CHL) 

INC HL 
G¥FE2682 “05 Cy CHL) 

LO A,COFBIT) 

SUB 7 

NEG 

JR Z,GTC2B2 
GTCSHFT RL C 

RL B 

DEC A 

JR NZ,GTCSHFT 
GTC282 POP HL 

RET 

INCLUDE CHST80O 

SUBTTL CHAR.SET FOR 40780 COL.M 
; 
>; Dot patterns for characters 
; character with code x 
; 0 = white, 1 = blacks 
H vertically or 
CHRST defb 00000000b 


defb 000000006 
defb 00000000b 
defb 000000006 
defb 00000000b 
defb 000000006 
defb 00000000b 


LOAD 
FROM 


oe 8 42 =e oe +8 oe oe 


ee «se 


INTERNAL ATTRIBUTE VARIABLES 
SYSTEM. VARIABLES 

A 

OOD BITS TO EVEN 


s RTN» USED BY GTCHAR TO PUT 
pio PIXELS FROM. DF IN 8 REGSBITS 7-2 
$s FOR MATCHING AGAINST CHAR.SET 


NEXT 


22 oe 20 oe 
ww 
LO 
eo 
x 


AINS CHAR.AT DFBIT 


; A=NO.OF BITS OFFSET IN BC 

; STARTS AT BIT 7 

; SHIFT 6 PIXELS FOR CHARACTER 
; TO By BITS 7-2 

; 

; CHAR.IN By BITS 7-2 
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screen: 


is at offsets 8x (ton line) to 8x+7 Chottom 
no margins between character spaces either 
horizontally 
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defb 
defb 
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e 
0617° 00 1323 defbd 0000009000b 
O61" 260 1324 defb 00000000b 
& 1325 
0619” 0Q0 1326 defb 00000000b ; code 3E > 
061A” 00 L327 defb 00000000b 
Pa 0618” 20 1328 defb 001000006 
G6iC":: \i0 L329 defb 00010000b 
0610" 08 1330 defb 00001000b 
he Gee” i520 1331 defb 00010000b 
CERF. 20 BR: $a defb 001000006 
0620" °° 00 1333 defb 00000000b 
» 1334 
0621” 00 1345 defb 00000000b ; code 3F ? 
G622°" i348 1336 defb 00111000b 
Bs 0623" 44 1337 defb 01000100b 
0624° 08 1338 defb 00001000b 
0625.7:°\-20 1339 defb 00010000b 
& 0626": 00 1340 defb 00000000b 
0627". 10 1341 defpd 00010000b 
0628” 00 1342 defb 00000000b 
& 1343 
0629° 00 1344 defb 00000000b + code 40 a 
QO62A"° 38 1345 defb 00111000b 
ae 0628" 44 1346 defb 01000100b 
G62C6" --/5e 1347 defb 01011100b 
G6Z20". "SC 1348 defb 01011100b 
& Q62E° 40 1349 defo 01000000b 
O62f)"°* 736 1350 defb 00111100b 
0630" 00 se defb 000000006 
& ei. 
0652": O90 1353 defb 00000000b ; code 41 A 
2 A | 1354 defb 001110006 
ae 0633" 44 1355 defb 010001006 
0634" 44 1356 defb 010001006 
Sasa) OTe re i wf defb 011111006 
Po 0636° 44 1358 defb 01000100b 
O637°. °° 44 1359 defb 01000100b 
0638” 00 1360 defb 00000000b 
@ 1361 
Q639:;" 00 1362 defb 00000000b ; code 42 B 
O63A" "78 1363 defb 01111000b 
ee 0638" 44 1364 defb 01000100b 
0650" 08 1365 defb 011110006 
0630" 44 1366 defb 01000100b 
4 O63E° 44 1367 defb 01000100b 
Coors 1368 defb 01111000b 
0640" 00 1369 defb 00000000b 
& 1370 
0641" 00 a ee defb 000000006 ; code 43 C 
0642" 38 1372 defb 00111000b 
@ 0643", 44 1373 defb 010001006 
0644" 40 1374 defb 01000000b 
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CHAR.SET FOR 40/80 COL.MODES CHST80.SRC 
O6FE”’ 20 1583 defb 00100000b 
O6FF’ 7C 1584 defb 01111100b 
0700" 00 1585 defb 00000000b 
. 1586 
0701" 00 1587 defb 00000000b 3 code 58 c 
0702" 38 1588 defb 00111000b 
0703° 20 1589 defb 00100000b 
0704° 20 1590 defb 00100000b 
0705" 20 1591 defb 00100000b 
OT66* » 28 1592 defb 00100000b 
0707° 38 1593 defb 00111000b 
0708” 00 1594 defb 00000000b 
1595 
0709" 00 1596 defb 00000000b ; code 5C \ 
070A" 00 1597 defb 00000000b 
070B" 40 1598 defb 01000000b 
070C’% 20 1599 defb 00100000b 
0700" 10 1600 defb 00010000b 
O70E" 08 1601 defb 00001000b 
O70F" 04 1602 defb 00000100b 
0710" 00 1603 defb 00000000b 
1604 
Sa7” 00 1605 defb 00000000b : code 5D } 
0712" ° 70 1606 defb 01110000b 
OTIS." 38 1607 defb 00010000b 
07147" £0 1608 _ defb 00010000b 
0715" 10 1609 defb 00010000b 
0716° 10 1610 defb 00010000b 
OFie" 0 1611 defb 01110000b 
0718° +00 1612 defb 00000000b 
1613 
0719" 00 1614 defb 00000000b 3 code 5E A 
otra" 306 1615 defb 00010000b 
0718’ 38 1616 defb 00111000b 
O71C" 54 1617 defb 01010100b 
\ -OFAGs. “30 1618 defb 00010000b 
| o718” 10 1619 defb 00010000b 
ies | ean 1620 defb 00010000b 
0720° 00 1621 defb 00000000b 
1622 
0721" ‘Oo 1623 defb 00000000b 3 code 5F “ 
0722" 00 1624 defb 00000000b 
0723" Of 1625 defb 00000000b 
0724° 00 1526 defb 00000000b 
0725’ 00 1627 defb 00000000b 
0726". 00 1628 defb 00000000b 
0727° 00 1629 defb 00000000b 
0728° FC 1630 defb 11111100b 
1631 
0729" 00 1432 defb 00000000b > code 60 pound sign 
O72A° 18 1633 defb 00011000b 
OT26* 2% 1634 defb 00100100b 
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ASC 003 40 
CHAR.«SET FOR 40/7 
OTSA = 56 
Q758° 28 
O7SC* = 79 
O750" --.'20 
O75E° 29 
O75F"’ 20 
0760" 00 
0761" ° 00 
0762” 00 
0763". 38 
0764" 48 
0765" 48 
0766" \ 38 
0767" 8 
0768" _ 30 
0769” 00 
O76A" 40 
076B” 40 
C760 7 tS 
0760" 48 
O76E” 48 
O76F’ 48 
0770° 00 
Sire". 00 
Gere" 5:29 
Gres, 00 
OT T47: 30 
Tie: ike 
Grete.) Le 
Ye er Or siemens. © 
One 6 OR 
0779” 00 
Oita. - RS 
OT7S*- 09 
OFiTGr 08 
O7T70" O08 
Dy ce d ae 8 2 
OF TES “58 
O78")... 30 
0781° 00 
O7s2": 20 
G7T63"° °."28 
0784" 30 
O785 "39 
0786" 28 
O2ets "24 
0788" 90 
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defb 
defb 
defb 
defbd 
defb 
defb 
defb 


defb 
defb 
defb 
defo 
defb 
defb 
defb 
defb 


defb 
defb 
defb 
defb 
defb 
defb 
defb 
defb 


defb 
defb 
defb 
def'b 
defb 
defb 
defb 
defb 


defb 
defb 
defb 
defb 
defb 
defb 
defb 
defb 


defb 
defb 
defb 
defb 
defb 
defb 
defb 
defb 
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00010000b 
00101000b 
01110000b 
00100000b 
00100000b 
00100000b 
00000000b 


00000000b 
00000000b 
00111000b 
01001000b 
01001000b 
00111000b 
00001000b 
00110000b 


00000000b 
01000000b 
01000000b 
01110000b 
01001000b 
01001000b 
01001000b 
00000000b 


00000000b 
00010000b 
00000000b 
00110000b 
00010000b 
00010000b 
00111000b 
000000006 


00000000b 
00001000b 
00000000b 
00001000b 
00001000b 
000010006 
01001000b 
00110000b 
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001000006 
00101000b 
00110000b 
001100006 
00101000b 
001001005 
00000000b 
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CHAR.SET FOR 40/780 COL.MODES CHST8O0.SRC 
- 
1739 
0789° 00 1740 defb 00000000b $s code 6C 1 
& O78A" 20 1741 defb 00100000b 
078B° 20 1742 defb 00100000b 
| O78C* 20 1743 defb 00100000b 
| @& 078D° 20 1744 defb 001000006 
O78E° 20 1745 defb 00100000b 
O78F° 18 1746 defb 00011000b 
| @ 0790° 00 1747 defb 00000000b 
1748 
0791° 00 1749 defb 00000000b ; code 6D ~ 
a 0792" 00 1750 defb 00000000b 
0793" 28 1751 defb 00101000b 
0794" 54 1752 defb 01010100b 
@ 0795" 54 1753 defb 01010100b 
0796° 54 1754 defb 01010100b 
0797" 54 1755 defb 01010100b 
& 0798" 00 1756 defb 00000000b 
17ST 
0799" 00 1758 defb 00000000b 3 code. 6E n 
& 079A" 00 1759 defb 00000000b 
0798" 70 1760 defb 01110000b 
079C" 48 1761 defb 01001000b 
a 0790" 48 1762 defb 010010006 
O79E° 48 1753 defb 01001000b 
O79F° 48 1764 defb 01001000b 
we O7A0° 00 1765 | defb 00000000b 
1766 
07A1" 00 1767 defb 00000000b 3 code 6F ° 
e O7A2"° 00 1768, defb 00000000b 
O7A3° 38 1769 defb 00111000b 
OTA4" 44 1770 defb 01000100b 
 ) O7A5° 44 1771 defb 01000100b 
O7TA6"° 44 1772 defb 01000100b 
O7A7T"’ 38 1773 defb 00111000b 
e O7A8° 00 1774 defb 00000000b 
1775 
0709" 00 1776 defb 00000000b 3 code 70 D 
& O7AA" 00 1777 defb 00000000b 
O7AB" 70 1778 defb 01110000b 
O7AC° 48 1779 defb 01001000b 
e O7A0" 48 1780 defb 01001000b 
O7AE’ 70 17381 defb 01110000b 
O7AF’ 40 1782 defb 01000000b 
es 0780" 40 1783 defb 01000000b 
1784 
0781’ 0 1785 defb 00000000b 3 code 71 q 
we 0782" 00 1786 defb 00000000b 
0783° 38 1787 defb 00111000b . 
07B4° 46 1788 defb 01001000b 
e 0785" 48 1789 defb 01001000b 
0786" 38 1790 defb 00111000b 
é 
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CHAR.SET FOR 40780 COL.MODES CHST80.SRC 
0787”. "08 1791 defb 00001000b 
v7ee "> OC 1792 defb 00001100b 
. 1793 
0789" 00 1794 defb 00000000b ; code 72 r 
O7BA’ 00 1795 defb 00000000b 
O78B’ 18 1796 defb 00011000b 
Ovec”. 20 1797 defb 001000006 
OT SR. 26 1798 defb 00100000b 
O7BE" . 20 1799 defb 00100000b 
O7BF” 20 800 defb 00100000b 
Gren, GO 1801 defb 00000000b 
1802 
OTC a". < 00 1803 defb 000000006 ; code 73 Ss 
Grt2* 0G 1804 defb 00000000b 
CES" 30 180§ defb 00110000b 
G764¢". “40 18064 defb 01000000b 
OTES. 30 1807 defb 001100006 
0706" 08 1808 defb 00001000b 
SFC7Ts 00 1809 defb 01110000b 
O7GSs..”° 60 1810 defb 00000000b 
1811 
07¢9”" 900 1812 defb 00000000b +; code 74 t 
CoTcA 20 1813 defb 00100000b 
O7CB”- 70 1814 defb 01110000b 
OTCe.” 29 Vet's defb 00100000b 
Groep --.20 181¢ defb 00100000b 
O7CE" 20 1817 defb 00100000b 
O7CF’ 18 1818 defb 00011000b 
0700" 00 1819 defb 00000000b 
182C 
OTD1" 00 1821 defb 00000000b ;-code 75 u 
O72" ©) 00 1322 defb 00000000b 
0703" 48 182 defb 01001000b 
0704" 48 1824 defb 01001000b 
0705” 48 1825 defb 01001000b 
O706° 48 826 defb 01001000b 
Giver. 239 1827 defb 00110000b 
0708” 00 1828 defb 00000000b 
1829 
0709" 00 1830 defb 00000000b >; code 76 Vv 
O7DA” 00 1831 defb 00000000b 
0708" 44 1832 defb 01000100b 
O7T0C"” 44 1833 defb 01000100b 
OTDO 28 1834 defb 00101000b 
S205 ) 22 1835 defb 00101000b 
OTDF” 40 1836 defb 00010000b 
O7EO; - G0 1837 defb 00000000b 
y 1838 
OTE”. 00 1839 defb 000000006 3; code 77 w 
Ore2- -BO 1840 defb 00000000b 
O7E3" 44 1841 defb 01000100b 
OTESS.  S4 1842 defb 01010100b 
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CHAR.SET FOR 40/780 COLSMOGDES CHST80.SRC 
VS235.5) £0 1895 defb 00010000b 
0814" 06 1896 defb 00001000b 
Gels? “26 1897 defb 00010000b 
0816” 10 1898 defb 00010000b 
SST 20 1899 defb 01110000b 
0818° 00 1900 defb 00000000b 
1901 
0819 *:. 00 1902 defb 00000000b > code 7E 
081A”. 28 1903 defb 00101000b 
G875" '50 1904 defb 01010000b 
081C” 00 1905 defb 00000000b 
0810" 00 1906 defb 00000000b 
COSTE’ .-00 1907 defb 00000000b 
O8iF”’ 00 1908 defb 000000006 
0820" 90 1909 defb 00000000b 
1910 
0821" 78 1911 defb 011110006 3. C000 (FF COPYRIGHT 
0822° 84 1912 defb 10000100b 
0823° 94 1913 defb 10010100b 
0824’ AS 1914 defb 10100100b 
0825° A4 1915 defb 10100100b 
0826" 94 1916 defb 10010100b 
O827° 84 1917 defb 100001006 
0828" 78 1918 defb 01111000b 
1919 
G23") CD 1920 GRPST defb 000000006 ; code 80 graphics 
082A” 900 1921 defb 000000006 
G826°" -: 00 1922 defb 00000000b 
0820” 00 1923 defb 00000000b 
0820" .00 1924 defb 00000000b6 
QO82E” 00 1925 defb 00000000b 
O82F”. 00 1926 defb 00000000b 
0830” 900 1927 defb 00000000b 
1928 ; 
CoN Da ig 3 1929 defb 00011100b ; code 81 graphics 
0832’ 1c 1930 defb 00011100b 
Qs33": ‘1 1931 defb 00011100b 
0834’ 1¢ 1932 defb 00011100b 
0835” 00 1933 defb 00000000b 
0836” 00 1934 defb 000000006 
0837” : 00 1935 defb 00000000b 
0838° 00 19364 defb 00000000b 
1937 ; 
1938 
6839" EO 1939 defb 111000006 ¢ code 82 graphics 
083A° £0 1940 defb tee 
B35... £6 1941 defb 11100000b 
S330" ED 1342 defb 11100000b 
0830" 00 1943 defb 00000000b 
O83E” 00 13944 defb 000000006 
O83F” 00 1945 defb 00000000b 
0840" 00 1946 defb 00000000b 
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CHAR.SET FOR 40/80 COL.MODES CHST80.SRC 
e 
086D° €0 1999 defb 11100000b 
O86E° €E0 2000 defb 11100000b 
& O86F° £0 2001 defb 111000006 
0870° €E0 2002 defb 111000006 
2003 ; 
ap O871* 46 2004 defb 00011100b ; code 89 graphics 
<1 Relais 2 2005 defb 00011100b 
. G673". iC 2006 defb 00011100b 
& 0874" 1C¢ 2007 defb 00011100b 
0875° EO 2008 defb 11100000b 
0876" £0: 2009 defb 11100000b 
& O877° £0 2010 defb 11100000b 
0878° £0 2011 defb 11100000b 
2012 ; 
& 0879° €E0 2013 defb 11100000b 3; code 8A graphics 
O87A° E0 2014 defb 11100000b 
| 0878° £0 2015 defb 11100000b 
| @ O8s7Cc’ £0 2016 defb 111000006 
0870" £0 2017 defb 11100000b 
O87E” £0 2018 defb 11100000b 
& O87F° £0 201° defb 11100000b 
0880" €E0 2020 defb 11100000b 
2021 ; 
ee 0881” FC 2022 defb. 11111100b ; code 8B graphics 
0882° FC 2023 defb 11111100b 
| o882° "RC 2024 defb 11111100b 
@ 0884° FC 2025 defb 11111100b 
0885" £0 2026 defb 11100000b 
0886" €&0 2027 defb 11100000b 
e 0887" £0 2028 defb 111000006 
0888” £0 2029 defb 11100000b 
2030 ; 
@ 0889” 00 2031 defb 00000000b ; code 8C graphics 
O88A° 00 2032 defb 00000000b 
0888” 00 2033 defb 00000000b 
on 08sc” 00 2034 defb 000000006 
0880’ FC 2035 defb 11111100b 
O88E” FC 2036 defb 11111100b 
ce O88F’ FC 2037 defb 11111100b 
0890° (FC 2038 defb 11111100b 
2039 ; 
& 0891" IEC 2040 defb 00011100b $ code 8D graphics 
0892" iC 2041 defb 00011100b 
Gasat:. XC 2042 defb 00011100b 
& 0894° 1C¢ 2043 defb 00011100b 
0895° FC 2044 defb 11111100b 
0896° FC 2045 defb 11111100b 
& C297” FC 2046 defb 11111100b 
898° ..FC 2047 defb 11111100b 
2048 ; 
& 0899°  E0 2049 defb 11100000b s;code 8E _. graphics 
089A" £0 2050 defb 11100000b 
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